200 REM ***** VARIABLE LIST ***** 210 REM **** BOARD HEADER **** 220 REM PP,Q,HI,LO,I:USE UNKNOWN 230 REM **** PROGRAM **** 240 REM *** SPRITES 250 REM V:MAIN LOCATION FOR POKES 260 REM D:READ IN SPRITE MOVE ML 270 REM ** MOTION 280 REM Y:Y POSN 290 REM XX:X POSN/FOR-NEXT 300 REM XY:Y POSN/FOR-NEXT 310 REM XZ:FOR-NEXT 320 REM SM:SPRITE MOVE SYS LOCATION 330 REM *** SCREEN *** 340 REM SP$:BLANK LINE 350 REM SC$:BLANK LINE 360 REM C:SKY POKE COLOUR 370 REM C$:GROUND PRINT COLOUR 380 REM T$,T1$:TREE PRINT COLOURS 390 REM WP:SNOW/RAIN PLOTTER 400 REM *** GENERAL *** 410 REM ** FLAGS ** 420 REM F1,F2:GENERAL USE 430 REM FL:RIGHT/WRONG1,2,3 440 REM ** MISC. ** 450 REM X:MAIN FOR-NEXT 460 REM HA:HELP ASKED FOR .. TIMES 470 REM AA$:GENERAL GET 480 REM GU$:STUDENT ANSWER 490 REM WE:ROUTINE NUMBER 500 REM WE$:REPEAT WEATHER CHECK 510 REM WE$(7,3):WEATHER STORAGE 520 REM ,1:FRENCH SENTENCE 530 REM ,2:SKY POKE COLOUR 540 REM ,3:GROUND PRINT COLOUR 550 REM ***** END VAR LIST ***** 2000 GOTO63000:REM SCREEN MOVE 2005 RESTORE:GOSUB10000:GOSUB63240:GOSUB11000:GOSUB40000:REM LOADS/TITLE/INSTR 2010 F1=0:FORX=1TO7:FL=0 2020 WE=INT(RND(1)*7+1):FORXX=1TOLEN(WE$) 2025 IFRIGHT$(STR$(WE),1)=MID$(WE$,XX,1)THEN2020 2030 NEXTXX:WE$=WE$+STR$(WE) 2040 GOSUB3000:REM MAIN SCREEN 2050 ON WE GOSUB 31500,32000,33000,33500,34000,35000,33700:REM WEATHER ROUTS 2060 GOSUB 36000:REM INPUT 2070 IF GU$=WE$(WE,1)THENGOSUB39000:GOTO2090:REM RIGHT ROUT 2080 GOSUB38000:IFFL=0THENGOTO2090 2085 GOTO2060 2090 POKE53281,0:PRINT"[147]":POKEV+21,0:POKEV+16,0:POKEV+28,0:FL=0:F2=0:F1=0 2100 POKEV+23,0:POKEV+29,0:NEXTX 2110 GOTO5000 3000 C$=WE$(WE,3):T1$="":T$="[149]":IFC$="[152]"THENT$="[151]":T1$="[151]" 3010 A$="[209]UESTION "+STR$(X):PRINT"[147]";SC$:PRINTTAB(14)"[145]";A$ 3020 PRINTSP$:PRINTSP$:C=VAL(WE$(WE,2)):POKE53281,C 3030 PRINT"  [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]  [157][148] " 3040 PRINT"  ";SPC(24);"  [157][148] " 3050 PRINT"  [146] "T1$"[162]";SPC(22);"  [157][148] " 3060 PRINT"  [146] "T1$"[161] [146][161]";SPC(22);"  [157][148] " 3070 PRINT"  [146] "T1$" ";SPC(23);"  [157][148] " 3080 PRINT"  [146] "T1$"[161] [146][161]";SPC(23);"  [157][148] " 3090 PRINT"  [146] "T1$" ";SPC(23);"  [157][148] " 3100 PRINT"  [146]"T1$"[161] [146][161]";SPC(21);"  [157][148] " 3110 PRINT"  ";C$;" ";T$;" ";C$;MID$(SP$,2,23);"  [157][148] " 3120 PRINT"  ";C$;" ";T$;" ";C$;MID$(SP$,2,22);"  [157][148] " 3130 PRINT"  ";C$;MID$(SP$,2,24)"  [157][148] " 3140 PRINT"  ";C$;MID$(SP$,2,24)"  [157][148] " 3150 PRINT"  ";C$;MID$(SP$,2,22)"  [157][148] " 3160 PRINT"  ";C$;MID$(SP$,2,22)"  [157][148] " 3170 PRINT"  ";C$;MID$(SP$,2,22)"  [157][148] " 3180 PRINT"[151]";SP$:PRINTSP$:PRINT"[144]";SP$:PRINTSP$:PRINTSP$:PRINTSP$:PRINTSP$;"" 3190 RETURN 4000 GOTO4100:PRINTDN$;"[144]";SC$:PRINTSC$:PRINTSC$;DN$;TAB(18);"[200][197][204][208]":HA=HA+1 4010 PRINTTAB(1);"";WE$(1,1);" ";WE$(2,1);" ";WE$(3,1) 4020 PRINTTAB(1);"";WE$(4,1);" ";WE$(5,1) 4030 PRINTTAB(1);"";WE$(6,1);" ";WE$(7,1) 4040 PRINTTAB(6);"[208]RESS SPACE BAR TO CONTINUE.":POKE198,0 4050 GETAA$:IFAA$=" "THENGOSUB38200:RETURN 4060 GOTO4050:GOSUB38200 4100 HA=PEEK(V+21):POKEV+21,0:PRINT"[147]":POKE53281,0:PRINTTAB(18);"[200][197][204][208]" 4110 PRINT:PRINT"[154]":FORXX=1TO7:PRINTTAB(7);WE$(XX,1):PRINT:NEXTXX 4120 PRINTDN$;"";TAB(6)"[208]RESS SPACE BAR TO CONTINUE.":POKE198,0 4130 GETAA$:IFAA$<>" "THEN4130 4140 GOSUB3000:POKEV+21,HA:RETURN 5000 POKE53280,0:POKE53281,0:PRINT"[147][154]";TAB(16)"[210][197][211][213][204][212][211]":PRINTTAB(16)"[183][183][183][183][183][183][183]" 5010 PRINT"";TAB(3);"[206]UMBER OF QUESTIONS:[153]";TAB(33);SC(1)+SC(2)+SC(3) 5020 PRINT:PRINTTAB(3)"[154][206]UMBER CORRECT FIRST TIME:[153]";TAB(33);SC(1) 5030 REM PRINT:PRINTTAB(3)"[154][206]UMBER CORRECT SECOND TIME:[153]";TAB(33);SC(2) 5040 PRINT:PRINTTAB(3)"[154][208]ERCENT CORRECT FIRST TIME:[153]"; 5045 XX$=STR$(INT(SC(1)/7*100)):PRINTTAB(35-LEN(XX$));XX$;"%" 5050 PRINT:PRINTTAB(3)"[154][206]UMBER INCORRECT:[153]";TAB(33);SC(3)+SC(2) 5060 PRINT 5070 FORXX=1TO1000:NEXTXX 5080 POKE198,0:PRINT:PRINT:PRINT" [154][196]O YOU WANT TO TRY AGAIN? ([153][217][154]ES/[153][206][154]O)" 5090 GETAA$:IFAA$<>"Y"ANDAA$<>"N"THEN5090 5100 IFAA$="Y"THENRUN 5110 PRINT"[147][210]ETURNING TO THE DISK MENU. " 5120 LOAD"MENU",8 5130 RUN 5140 END 5199 : 9000 IFF1=1THENWE=1 9005 IFWE=6THEN9080 9007 IFWE<>1ANDWE<>2ANDWE<>6THENRETURN 9010 WP=INT(RND(1)*620+32768):IFPEEK(WP)<32ORPEEK(WP)>42THEN9010 9020 IFPEEK(WP)=39ORPEEK(WP)=42THENPOKEWP,32 9030 IFWE=1THENPOKEWP,39:POKEWP+22528,6:GOTO9050 9040 POKEWP,42:POKEWP+22528,1 9050 IFPEEK(WP-39)=39ORPEEK(WP-39)=42THENPOKEWP-39,32 9060 IFPEEK(WP+39)=39ORPEEK(WP+39)=42THENPOKEWP+39,32 9070 RETURN 9080 POKE33784,132+INT(RND(1)*2)*11:POKE33786,128+INT(RND(1)*2)*14 9090 TS=TI+10:GOSUB11260:RETURN 10000 POKE53269,0:PRINTCHR$(142):POKE53271,0:POKE53277,0 10005 PRINTCHR$(8):WE$(1,1)="[201]L PLEUT.":WE$(1,2)="15":WE$(1,3)="[153]" 10010 WE$(2,1)="[201]L NEIGE.":WE$(2,2)="15":WE$(2,3)="" 10020 WE$(3,1)="[201]L FAIT FROID.":WE$(3,2)="3":WE$(3,3)="" 10030 WE$(4,1)="[201]L FAIT CHAUD.":WE$(4,2)="3":WE$(4,3)="[153]" 10040 WE$(5,1)="[201]L FAIT DU BROUILLARD.":WE$(5,2)="12":WE$(5,3)="[152]" 10050 WE$(6,1)="[201]L FAIT DU VENT.":WE$(6,2)="3":WE$(6,3)="[153]" 10060 WE$(7,1)="[201]L FAIT DU SOLEIL.":WE$(7,2)="3":WE$(7,3)="[153]" 10070 DN$="":FORXX=1TO20:DN$=DN$+"":NEXTXX:SM=828:V=53248 10080 SP$="":FORXX=1TO39:SP$=SP$+" ":NEXTXX:SP$=SP$+"[157][148] [146]" 10085 SC$=""+CHR$(20)+CHR$(20)+CHR$(20)+SP$ 10090 FORXX=0TO15:FORXY=0TO62:READXZ:POKE40960+64*XX+XY,XZ:NEXTXY,XX 10950 REM SYS828 - SPRITE MOVE 10955 FORXX=0TO80:READD:POKE828+XX,D:NEXTXX:RETURN 11000 SP$="":FORX=1TO39:SP$=SP$+" ":NEXTX:SP$=SP$+"[157][148] ":V=53248 11010 POKE53280,0:POKE53281,14:PRINTCHR$(142);CHR$(8) 11020 PRINT"[147][144] [213][192][201] [174] [176] [176][192] [174] [192][178][192] [176][192] [176] [174] [176][192][201][213][192][201]" 11030 PRINT" [221] [221] [194] [194] [171] [194] [194] [171] [194]V[194] [171][192][203][202][192][201]" 11040 PRINT" [202][192][205] [202][192][203] [173][192] [173][192] [177] [173][192] [189] [173] [189] [202][192][203]" 11050 PRINT:PRINT" [176][192] [213][192][201] [178] [192][178][192] [178] [174] [213][192][201]" 11060 PRINT" [171] [171][192][179] [194] [194] [192][192] [194] [194] [213][203]" 11070 PRINT" [189] [189] [173] [177] [177] [177] [173][192] .[153]" 11080 PRINT:PRINT:PRINT:PRINT"[153]":FORX=1TO10:PRINTSP$:NEXTX:PRINTSP$"" 11090 POKE33784,131:POKEV+39,7:POKEV,0:POKEV+1,75:POKE53275,1:POKEV+21,1 11100 POKEV+16,0:POKEV+23,0:POKEV+29,0:POKEV+28,0:Y=PEEK(V+1) 11110 FORXZ=0TO200:XY=INT(XZ/15):IFXZ>180THENXY=24-XY: 11120 SYS828,0,XZ,Y-XY:TS=TI+1 11130 GOSUB11260:NEXTXZ 11140 TS=TI+30:GOSUB11260:POKE53281,12:POKEV+21,0 11145 F1=1:FORXY=1TO50:GOSUB9000:NEXTXY 11150 POKEV+37,10:POKEV+39,6:POKEV+38,2:POKEV+21,0:POKEV+16,0:POKEV+40,0 11155 POKEV+23,0:POKEV+29,4:POKEV+41,6:POKEV,0:POKEV+1,139 11160 POKEV+2,0:POKEV+3,160:POKEV+4,3:POKEV+5,128:POKE53275,0 11170 POKE33784,132:POKE33785,138:POKE33786,129:POKEV+21,7:POKEV+28,7 11180 FORXZ=0TO345STEP10:FORXY=0TO9STEP3:SYSSM,0,XZ+XY,139:SYSSM,1,XZ+XY,160 11190 SYSSM,2,XZ+3+XY,128:POKE33785,138+XY/3:TS=TI+2:GOSUB11260 11200 NEXTXY:NEXTXZ:POKEV+21,0:POKEV+16,0:RETURN 11250 FORXY=0TO2:NEXTXY:RETURN 11260 IFTS>TITHEN11260 11270 RETURN 31500 REM RAIN ROUTINE 31510 POKEV+37,10:POKEV+39,6:POKEV+38,7:POKEV+28,7:POKEV+40,0:POKEV+41,6 31520 POKE33784,132:POKE33785,138:POKE33786,129:POKEV,88:POKEV+2,88 31530 POKEV+4,90:POKEV+1,120:POKEV+3,141:POKEV+5,109:POKEV+23,0:POKEV+29,4 31540 POKEV+21,7:FORXX=1TO25:GOSUB9000:NEXTXX 31550 FORXX=88TO228STEP10:FORXY=0TO9STEP3:GOSUB9000 31560 SYSSM,0,XX+XY,120:SYSSM,1,XX+XY,141:SYSSM,2,XX+XY+2,109 31570 POKE33785,138+XY/3:NEXTXY,XX:RETURN 32000 REM SNOW ROUTINE 32010 POKEV+37,10:POKEV+39,12:POKEV+38,11:POKEV+28,3:POKEV+29,0:POKEV+23,0 32020 POKE33784,132:POKE33785,138:POKE33786,130:POKEV+40,0:POKEV+41,12 32025 POKEV+21,7:POKEV,88:POKEV+2,88 32030 POKEV+4,195:POKEV+1,120:POKEV+3,141:POKEV+5,117 32060 FORXX=88TO228STEP10:FORXY=0TO9STEP3:GOSUB9000:SYSSM,0,XX+XY,120 32070 SYSSM,1,XX+XY,141:POKE33785,138+XY/3:NEXTXY,XX:RETURN 33000 REM COLD 33010 POKEV+37,1:POKEV+39,2:POKEV+38,0:POKEV+23,0:POKEV+29,0:POKEV+28,3 33020 POKE33784,134:POKE33785,135:POKEV,255:POKEV+2,255:POKEV+1,161:POKEV+3,182 33030 POKEV+40,2:POKEV+21,3:RETURN 33500 REM HOT 33510 POKEV+37,1:POKEV+39,2:POKEV+38,0:POKEV+23,0:POKEV+29,0:POKEV+28,3 33520 POKE33784,136:POKE33785,137:POKEV,255:POKEV+2,255:POKEV+1,161:POKEV+3,182 33530 POKEV+40,2:POKEV+21,3:RETURN 33700 REM SUNNY 33710 POKEV+39,7:POKEV+28,0:POKEV+23,0:POKEV+29,0:POKE33784,131 33720 POKEV,114:POKEV+1,79:POKEV+21,1:RETURN 34000 REM FOGGY 34010 POKEV+37,11:POKEV+39,11:POKEV+38,11:POKEV+23,0:POKEV+29,0:POKEV+28,3 34020 POKE33784,132:POKE33785,138:POKEV,88:POKEV+2,88:POKEV+1,120:POKEV+3,141 34030 POKEV+21,3:POKEV+40,11 34040 FORXX=88TO248STEP10:FORXY=0TO9STEP3:SYSSM,0,XX+XY,120:SYSSM,1,XX+XY,141 34050 POKE33785,138+XY/3:TS=TI+1:GOSUB11260:NEXTXY,XX:RETURN 35000 POKEV+23,0:POKEV+29,0:REM WIND 35005 POKEV+37,10:POKEV+38,2:POKEV+39,6:POKEV+40,0:POKEV+41,6 35010 POKE33784,132:POKE33785,138:POKE33786,128:POKEV,121:POKEV+2,121 35020 POKEV+4,240:POKEV+1,120:POKEV+3,141:POKEV+5,80:POKEV+28,7:POKEV+21,7 35030 FORXX=1TO25:POKE33784,132+INT(RND(1)*2)*11 35035 POKE33786,128+INT(RND(1)*2)*14 35060 TS=TI+INT(RND(1)*7+9):GOSUB11260 35070 NEXTXX:RETURN 36000 GU$="":PRINTDN$;"[144] [209]UEL TEMPS FAIT-IL?";TAB(32)"F1=[200]ELP":POKE198,0 36010 PRINT:PRINT"?"; 36020 GETAA$:IFAA$=""THENGOSUB9000:GOTO36020:REM SNOWER ROUTINE 36030 IFAA$=CHR$(133)THENGOSUB4000:GOTO36000:REM HELP 36040 IF LEN(GU$)=0THEN36100 36060 IFAA$=CHR$(13)THENPRINT"[157][144] ":RETURN 36070 IFAA$=CHR$(20)THENPRINT"[157][157][146]? [157]";:GU$=LEFT$(GU$,LEN(GU$)-1):GOTO36020 36080 IFLEN(GU$)>=25 THEN36020 36090 IFAA$="."ORAA$=" "ORAA$="[201]"THEN36130 36100 IFAA$="[201]"THEN36130 36110 IFASC(AA$)<65ORASC(AA$)>140THEN36020 36120 IFASC(AA$)>90ANDASC(AA$)<97THEN36020 36130 PRINT"[157][144]"AA$"[146]?";:GU$=GU$+AA$:GOTO36020 38000 IFFL=2THENFL=0:GOTO38100 38005 PRINTDN$"[145][145]";TAB(13);"[206]O. [212]RY AGAIN.":TS=TI+160:GOSUB11260 38010 IFFL=0THENFL=1:GOSUB4000:HA=HA-1:GOSUB38200:RETURN 38020 IFFL=1THENFL=2:GOSUB4000:HA=HA-1:PRINTDN$;"[144]";SC$ 38030 GOSUB38200:PRINTDN$;"[145]" 38040 PRINTTAB(3);"[196]ON'T FORGET TO PUNCTUATE AND" 38050 PRINTTAB(3);"CAPITALIZE THE SENTENCE." 38060 PRINTTAB(6)"[208]RESS SPACE BAR TO CONTINUE.";:POKE198,0 38070 GETAA$:IFAA$=" "THENGOSUB38200:RETURN 38080 GOTO38070 38100 GOSUB38200:PRINTDN$;"[145][145]";TAB(6)"[206]O, THAT IS STILL NOT RIGHT." 38110 PRINTTAB(6);"[200]ERE IS THE CORRECT ANSWER: [144]" 38120 PRINTSC$:PRINTSC$:PRINTSC$:PRINTSC$;DN$"" 38130 PRINTTAB(5)"";WE$(WE,1):SC(3)=SC(3)+1 38140 PRINT:PRINTTAB(6)"[208]RESS SPACE BAR TO CONTINUE.";:POKE198,0 38150 GETAA$:IFAA$=" "THENRETURN 38160 GOTO38150 38200 PRINTDN$"[145][145][151]";SC$:PRINTSC$;"[144]":PRINTSC$:PRINTSC$:PRINTSC$:PRINTSC$ 38210 PRINTSC$;DN$:RETURN 39000 IFFL=0THENGOTO39100 39020 FORXX=0TO9 39030 PRINT"";TAB(15);"[195]'EST C[157]'[145]A!":TS=TI+15:GOSUB11260 39040 PRINT"";TAB(15);"[195]'EST C[157]'[145]A!":TS=TI+15:GOSUB11260 39050 NEXTXX:SC(2)=SC(2)+1 39060 PRINTDN$;"";TAB(6);"[144][208]RESS SPACE BAR TO CONTINUE.":POKE198,0 39070 GETAA$:IFAA$=" "THENRETURN 39080 GOTO39070 39100 GC$(0)="[198]ANTASTIQUE!":GC$(1)="[198]ORMIDABLE!":GC$(2)="[197]XCELLENT!" 39110 XZ=INT(RND(1)*3):SC(1)=SC(1)+1:FORXX=0TO9 39120 PRINT"";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260 39130 PRINT"[158]";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260 39140 PRINT"";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260:NEXTXX 39150 PRINTDN$;"";TAB(6);"[144][208]RESS SPACE BAR TO CONTINUE.":POKE198,0 39160 GETAA$:IFAA$=" "THENRETURN 39170 GOTO39160 40000 REM INSTRUCTIONS 40010 PRINT"[147][154]";CHR$(14);:POKE53280,0:POKE53281,0 40020 PRINTTAB(14);"[201][206][211][212][210][213][195][212][201][207][206][211]":PRINTTAB(14);"[183][183][183][183][183][183][183][183][183][183][183][183]":PRINT:PRINT 40030 PRINTTAB(2);"[201]N THIS PROGRAM YOU WILL SEE A SCENE":PRINT 40040 PRINTTAB(2);"SHOWING A WEATHER CONDITION. [217]OU":PRINT 40050 PRINTTAB(2);"HAVE TO TYPE IN THE KIND OF WEATHER":PRINT 40060 PRINTTAB(2);"THE SCENE SHOWS. [217]OU MUST USE":PRINT 40070 PRINTTAB(2);"CORRECT PUNCTUATION AND CAPITALIZE":PRINT 40080 PRINTTAB(2);"THE FIRST LETTER IN THE SENTENCE.":PRINT 40090 PRINTTAB(2);"[210]EMEMBER TO PRESS [210][197][212][213][210][206] AFTER":PRINT 40100 PRINTTAB(2);"YOU TYPE IN YOUR ANSWER." 40110 PRINTDN$"";TAB(6);"[159][208]RESS SPACE BAR TO CONTINUE.":POKE198,0 40120 GETAA$:IFAA$<>" "THEN40120 40130 PRINT"[147][153]";TAB(15);"[204][197][211][160][212][197][205][208][211]":PRINTTAB(15);"[163][163][163][163][163][163][163][163][163][154]" 40140 PRINT:PRINT:FORXX=1TO7:PRINTTAB(2);WE$(XX,1):PRINT:NEXTXX 40150 PRINT"[153]";TAB(14);"[194][207][206][206][197][160][195][200][193][206][195][197]!" 40160 PRINTDN$;"";TAB(6);"[159][208]RESS SPACE BAR TO CONTINUE.":POKE198,0 40170 GETAA$:IFAA$=" "THENRETURN 40180 GOTO40170 40190 REM -- BY DAVE DIXON -- 40195 REM --PROGRAMMER AT LARGE-- 50000 REM SPRITE DATA -- KITE 50010 DATA0,0,2,0,0,10,0,0,38 50020 DATA0,0,150,0,2,86,0,9,86 50030 DATA0,9,86,0,11,254,0,11,248 50040 DATA0,11,224,0,11,128,0,10,0 50050 DATA0,136,0,0,32,0,0,40,0 50060 DATA0,32,0,2,32,0,0,128,0 50070 DATA34,32,0,8,0,0,162,0,0 50080 REM SPRITE DATA -- UMBRELLA 50090 DATA0,0,0,0,0,0,2,170,128 50100 DATA11,170,224,46,233,184,185,190,110 50110 DATA185,190,110,185,190,110,185,190,110 50120 DATA185,190,110,34,40,136,0,8,0 50130 DATA0,8,0,0,8,0,0,8,0 50140 DATA0,8,0,0,136,0,0,40,0 50150 DATA0,0,0,0,0,0,0,0,0 50160 REM SPRITE DATA -- SNOWMAN 50170 DATA0,60,0,0,60,0,0,255,0 50180 DATA0,66,0,0,165,0,0,129,0 50190 DATA0,189,0,0,66,0,0,60,0 50200 DATA0,195,0,1,24,128,2,24,64 50210 DATA4,0,32,4,0,32,4,24,32 50220 DATA4,24,32,4,0,32,4,24,32 50230 DATA4,24,32,2,0,64,1,255,128 50240 REM SPRITE DATA -- SUN 50250 DATA0,0,0,0,0,0,0,0,0 50260 DATA0,66,0,4,66,64,0,36,128 50270 DATA1,255,0,51,255,136,15,255,240 50280 DATA7,255,192,55,255,192,15,255,224 50290 DATA11,255,152,17,255,0,2,40,128 50300 DATA4,68,64,0,68,0,0,0,0 50310 DATA0,0,0,0,0,0,0,0,0 50320 REM SPRITE DATA -- GIRL TOP 50330 DATA0,0,0,3,255,0,15,217,0 50340 DATA15,100,0,15,84,0,13,85,0 50350 DATA61,84,5,63,84,5,3,80,41 50360 DATA2,128,170,2,170,168,2,170,160 50370 DATA10,170,128,10,170,128,10,170,0 50380 DATA10,170,0,10,170,0,10,170,0 50390 DATA10,170,0,10,170,0,10,170,0 50400 REM SPRITE DATA -- GIRL BOTTOM 50410 DATA10,170,0,15,255,0,15,255,0 50420 DATA15,255,0,15,255,0,15,255,0 50430 DATA15,15,0,15,15,0,15,15,0 50440 DATA15,15,0,15,15,0,15,15,0 50450 DATA15,15,0,15,15,0,15,15,0 50460 DATA15,15,0,10,138,128,10,138,128 50470 DATA0,0,0,0,0,0,0,0,0 50480 REM SPRITE DATA -- THERM COLD TOP 50490 DATA0,0,0,255,255,255,255,213,87 50500 DATA213,213,87,213,247,95,213,247,119 50510 DATA223,255,119,213,215,119,213,215,95 50520 DATA213,213,87,213,213,87,213,223,95 50530 DATA213,215,119,223,215,119,213,221,119 50540 DATA213,223,95,213,213,87,213,213,87 50550 DATA213,215,87,213,221,215,223,221,215 50560 REM SPRITE DATA -- THERM COLD BOT 50570 DATA213,221,215,213,215,87,213,213,87 50580 DATA213,213,87,234,223,95,234,215,119 50590 DATA239,215,119,234,221,119,234,223,95 50600 DATA234,213,87,234,213,87,255,213,87 50610 DATA255,255,255,0,0,0,0,0,0 50620 DATA0,0,0,0,0,0,0,0,0 50630 DATA0,0,0,0,0,0,0,0,0 50640 REM SPRITE DATA -- THERM HOT TOP 50650 DATA0,0,0,255,255,255,255,213,87 50660 DATA213,213,87,213,247,95,213,247,119 50670 DATA223,255,119,213,215,119,213,215,95 50680 DATA234,213,87,234,213,87,234,223,95 50690 DATA234,215,119,239,215,119,234,221,119 50700 DATA234,223,95,234,213,87,234,213,87 50710 DATA234,215,87,234,221,215,239,221,215 50720 REM SPRITE DATA -- THERM HOT BOT 50730 DATA234,221,215,234,215,87,234,213,87 50740 DATA234,213,87,234,223,95,234,215,119 50750 DATA239,247,119,234,221,119,234,223,95 50760 DATA234,213,87,234,213,87,255,213,87 50770 DATA255,255,255,0,0,0,0,0,0 50780 DATA0,0,0,0,0,0,0,0,0 50790 DATA0,0,0,0,0,0,0,0,0 50800 REM GIRL BOT 1 50810 DATA10,170,0,15,255,0,15,255,0,15,255,0,3,252,0,0,252,0 50820 DATA0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0 50830 DATA0,252,0,0,252,0,0,252,0,0,252,0,0,85,0,0,85,0,0,0,0,0,0,0,0,0,0 50840 REM DIR BOT 2 50850 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0 50860 DATA15,207,192,15,207,192,15,207,192,15,195,240,15,195,240,15,195,240 50870 DATA15,195,240,15,195,240,15,192,252,15,192,252,5,80,85,5,80,85 50880 DATA 0,0,0,0,0,0,0,0,0 50890 REM GIRL BOT 3 50900 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0 50910 DATA15,207,192,15,207,192,15,207,192,15,195,240,63,3,240,63,3,240 50920 DATA63,3,240,63,3,240,252,0,252,252,0,252,85,0,85,85,0,85 50930 DATA0,0,0,0,0,0,0,0,0 50940 REM GIRL BOT 4 50950 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0 50960 DATA15,207,192,15,207,192,15,207,192,15,207,192,63,15,192,63,15,192 50970 DATA63,15,192,63,15,192,252,15,192,252,15,192,85,5,80,85,5,80 50980 DATA0,0,0,0,0,0,0,0,0 50990 REM THE OTHER KITE 51000 DATA0,0,0,0,0,0,0,0,0 51010 DATA0,0,0,0,0,8,0,0,40 51020 DATA0,0,152,0,2,88,0,9,88 51030 DATA0,9,88,0,9,88,0,11,248 51040 DATA0,11,224,0,11,128,8,138,0 51050 DATA34,168,0,32,128,0,40,0,0 51060 DATA160,0,0,32,0,0,128,0,0 51070 REM GIRL WIND TOP 51080 DATA0,60,0,63,252,0,207,212,0 51090 DATA63,100,0,255,84,0,13,85,0 51100 DATA61,84,5,253,84,5,1,80,41 51110 DATA2,128,170,2,170,168,2,170,160 51120 DATA10,170,128,10,170,128,10,170,0 51130 DATA10,170,0,10,170,0,10,170,0 51140 DATA10,170,0,10,170,0,10,170,0 51150 REM SYS828 - SPRITE MOVE DATA 51160 DATA32,14,226,32,158,173,32,247,183,165,20,41 51170 DATA7,133,252,10,133,251,32,14,226,32,158,173 51180 DATA32,247,183,165,20,166,251,157,0,208,169,0 51190 DATA166,252,56,42,202,224,255,208,250,164,21,208 51200 DATA8,73,255,45,16,208,24,144,3,13,16,208 51210 DATA141,16,208,32,14,226,32,158,173,32,247,183 51220 DATA165,20,166,251,232,157,0,208,96 63000 REM >>> LONDON BOARD OF EDUCATION HEADER 63001 REM >>> 63002 CLR:POKE51,0:POKE55,0 63003 POKE52,128:POKE56,128:CLR:POKE53272,PEEK(53272)AND15:POKE648,128 63004 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1 63005 POKE53272,5:POKE53280,12:POKE53281,12:PRINT"[147][144]" 63006 DEFFNPP(Q)=PEEK(Q)+256*PEEK(Q+1):DEFFNHI(Q)=INT(Q/256):DEFFNLO(Q)=Q-256*FNHI(Q) 63008 Y=FNPP(FNPP(61)+1)-1:POKE65,FNLO(Y):POKE66,FNHI(Y) 63010 PRINT"[147]  [223]" 63020 PRINT"   " 63030 PRINT" [146][172][162][162][172][172][172][162][187][172][146][162][162][172][172] [182][146][172][162][162][162][187][172][162][162][172][162][187]"; 63040 PRINT" [161][161][161][146][191][161][161][161][161][161][161][146][191][161]  [161][161][161][146][162][190][161][146][162][190][161][161]"; 63050 PRINT" [161][146][162][190][161][187][161][146][162][191][161][146][162][190][161][187] [146][169][161][146][162][190][161][161][161][146][191][161][146][162][191]"; 63060 PRINT:PRINT 63070 PRINT" [157][157][157][157] " 63080 PRINT"[172][187] [146][172][162][187][172][172][172][162][162][162][187][172][162][162][172][172][162][162][172][172]"; 63090 PRINT"[162][187][190][146][187] [161][161][161][161][161][161][146][162][190][161][161][161][161][161][146][191][161]"; 63100 PRINT"[188][146][161][161] [161][146][162][191][161][146][162][190][161][146][162][162][161][161][161][161][161][146][162][190][161][187]" 63180 PRINT" [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 63185 PRINT" QUEL TEMPS FAIT-IL?[144] " 63190 PRINT" [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]" 63195 PRINT" ALL RIGHTS RESERVED." 63200 PRINT" UN MOMENT S.V.P":GOTO2005 63240 PRINT"[152]"SP$:V=53248 63250 POKEV+21,0:POKEV+28,0 63260 POKEV+29,4:POKEV+23,0:POKEV+16,0 63300 FORI=0TO2:POKE33784+I,16+I:NEXT 63400 SP=33792 63410 FOR I=0TO64*6-1:POKESP+I,0:NEXT 63420 FORI=24TO60:READX:POKESP+I,X:NEXT 63430 FORI=26TO62:READX:POKESP+64+I,X:NEXT 63440 FORI=46TO58:READX:POKESP+128+I,X:NEXT 63450 FORI=13TO61:READX:POKESP+192+I,X:NEXT 63460 FORI=54TO61:READX:POKESP+256+I,X:NEXT 63470 POKEV+39,13:POKEV+40,13:POKEV+41,0 63475 POKEV,56:POKEV+2,29:POKEV+4,32 63480 POKEV+1,105:POKEV+3,105:POKEV+5,109 63485 POKEV+21,4:FORI=1TO1100:NEXT 63490 POKE33786,19:POKEV+21,5:FORI=1TO950:NEXT 63495 POKE33786,20:POKEV+21,7:FORI=1TO2000:NEXT 63500 DATA 3,0,0,6,0,0,6,0,0,12,0,0,12,3,128,24,14,0,24,56,0,48,224,0,51,128,0 63510 DATA 110,1,240,120,63,0,247,224,0,252 63520 DATA 192,0,0,96,0,0,96,0,0,48,1,192,48,0,112,24,0,28,24,0,7,12,0,1,204 63530 DATA 15,128,118,0,252,30,0,7,239,0,0,63 63540 DATA 14,0,0,17,254,0,16,0,0,17,254,0,14 63550 DATA 32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0 63560 DATA 0,32,0,0,32,0,0,32,0,0,64,0,0,65,254,0,102,0,0,60 63570 DATA 255,1,254,0,198,0,0,124 63700 PRINT"[147][144]";:RESTORE:POKE53269,0:RETURN 63710 REM WHC 93:10:27